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EAST CAROLINA UNIVERSITY 
COMPUTING CENTER 


MEMORANDUM 


a OO oe oe ee 


TOs DISTRIBUTION 


FROM: CARL Be FRIEDLANDER 
SYSTEMS PROGRAMMER 


DATEs APRIL i» 1976 


SUBJECT® REVISION OF THE 85509 SYSTEMS BULLETINS 


THE USER SERVICES GROUP OF THE COMPUTING CENTER» OF WHICH I AM 
A MEMBER» HAS BEEN STUDYING THE CONCEPT OF THE SYSTEMS BULLETIN FOR THE 
PAST TWO WEEKS, WE HAVE CONCLUDED THAT THE SYSTEMS BULLETIN IS A SOUSD 
AND FEASIBLE MEANS oF COoMMUNICATIQN BETWEEN THE SYSTEMS PROGRAMMER AND 
THE USERS. WE STUDIED THE FORMAT OF THE DOCUMENT AND FOUND IT TO BE 
GENERALLY SATISFACTORY, WE OID FEEL® HOWEVER» THAT SOME WORK WAS IN 
ORDER CONCERNING UPDATE ANDO ORGANIZATIONS 


AS A RESULT OF OUR STUDY» SOME CHANGES WERE IMPLEMENTED IN THE 
AREA OF OVERALL ORGANIZATIONe EACH SYSTEM BULLETIN THAy HAD BEEN ISSUED 
(THERE WERE 18) WAS REVIEWED. EVERY ONE THAT DEALT WITH MULTIPLE 
SUBJECTS WAS DIVIDED INTO SEPARATE BULLETINS FOR EAcH SUBJECT. THIS 
DIVISION NECESSITATED THE RE*NUMBERING OF ALL OF THE BULLETINS IN ORDER 
TO MAINTAIN A CHRONOLOGICAL ORDERe FURTHERMORE» BULLETINS WHICH PROVIDE 
NOTIFICATION OF SOME MALFUNCTION IN SOFTWARE OR NOTIFICATION OF A 
CORRECTION TO A. MALFUNCTION ARE NOW DESIGNATED AS SUCH IN THE SUBJECT 
LINE OF THE BULLETIN, UPDATE oR CHANGES TO A BULLETIN wILL NO LONGER BE 
ISSUED AS A. SEPARATELY NUMBERED BULLETIN BUT INSTEAD WILL BE RELEASED 
WITH THE ORIGINAL BULLETIN NUMBER AND A REVISION LEVEL» THIS WILL 
FACILIATE ATTACHMENT oF ALL UPDATES TO THE BULLETIN TQ WHICH THEY ARE 
APPLICABLE, 


PLANS FOR A NEW OMISTRIBUTION POLICY ARE BEING FORMULATEDS 
MEANWHILEs NEW BULLETINS WILL BE POSTED ON THE BULLETIN BOARD IN AUSTIN 
108, USER SERVICES WILL MAINTAIN» IN THE DOCUMENTATION LIBRARY,» A BOOK 
CONTAINING TWO COMPLETE SETs OF SYSTEMS BULLETINS; ONE SET WILL BE 
MAINTAINED IN NUMERICAL ORDER BY BULLETIN NUMBER ANDO THE OTHER WILL BE 
MAINTAINED BY SUBJECT AREAe Ag HAS BEEW DONE IN THE PAST» NEW BULLETINS 
ISSUED DURING A MONTH WILL BE SUMMARIZED IN THE NEXT MONTH"S NEWSLETTER. 


ei 


A _NEW AND COMPLETE SET OF THE FIRST 25 SYSTEMS BULLETINS IS 

ENCLOSED WITH THIS MEMORANDUM, YOUR ENTIRE SET OF OLD BULLETINS SHOULD 

BE OMESTROYED AND REPLACED wITH THIS NEW SETe A FEw OF THE ORIGINAL 
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BULLETINS ARE BEING RE*wRITTEN AND WILL BE RELEASED IN a FEW DAYSe 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # ts REVISION 1 


o2 APRIL 76 


SUBJECT: REVISION NOTICE = MONITOR STATEMENT IN COBOL68 


mo 9 ap on we oe oe sane neaa & Ce ee) - @eeaenrga am afeeanw 8 we em mam Seong? aw 


THE KNOWN PROBLEMS WITH THE MONITOR STATEMENT HAVE BEEN CORRECTED. 
THE CORRECTION IS EFFECTIVE IN COBUL68 LEVEL 16¢00e13 AND ALL SUBSEQUENT 
LEVELS. 


Lr eS i 2 co on a 


* THIS 3HOULD BE A PERMANENT ATTACHMENT TO THE ORIGINAL BULLETIN * 


fie ek he ee Oe me ee ee ee ee we ke oe ek ke ke hk oe ke ek we Ok ok ek Ok 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 1 


9 APRII, 75 


SUBYFCT? ERROR NOTIFICATION = mMONITUR STATEMENT IN COBO, 68 


Sea Fawn ae mau eag ae eee Oe = ~~ a oa sea “ann 2 ea =o gana, = @ 


AVOIO THE USE OF THE MONITOR STATEMENT IN COBO, 68 UNTIL FURTHER 
NOTICEs UNDER CERTAIN CONDITIONS THE MONITOR STATEMENT ALTERS THE VALUE 
OF DATA*NA4ES BEING MONTTORED. 
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ECU COMPUTING CENTER 
R5500 SYSTEMS BULLETIN # 2 
15 APRIL 75 


SUBJECT: ERROR CORRECTION = USING/GIVING SORT IN COBOL 6, 


See Faw em owe @Saeaqn a Pea Bae se -” Sagem RB Bans eaeaum@ mom L lead Mugla) 


A PATCH HAS BEEN INSTALLED IN BOTH THE BATCH AND 7SS IeTRINSICS To 
ALLOW A COBNL48 USING/GIVING SORT Tao FUNCTION PROPERLY WHEN BOTH TRE 
USING AND GIVING CLAUSES REFERENCE THE SAME FILE CSAMe FD NAME)e THIS 
BECAME EFFECTIVE AT 9 AeMe ON MONDAYs APRIL 14s 19754 PRIOR TO THIS 
PATCH A USING/GIVING SORT REFERENCING THE same FILE FoR INPUT AND OUTPUT 
WOULD BOMB OUT WITH AN ew INVALIN ADDRESS OR “STACK OVERFLOW CONDITIONs 
AeAwaA 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 3» REVISION 1 


11 SEPTEMBER 75 


SUBJECT? REVISION NOTICE = CORRESPONDING OPTION IN COBO! 68 


Sat awe Cees RR. SF HOP TSTFBaes Hem HH gam we 


THE KNOWN PROBLEMS WITH THE USE OF “CORRESPONDING” IN CONJUNCTION 
WITH SUBSCRIPTED DATA ELEMENTS HAVE BEEN CORRECTED+ THE CORRECTION IS 
EFFEcTIVE IN THE COBNL68 CnMPILER LEVEL 16+0¢02 AND ALL SUBSEQUENT 
LEVELS. 


tas 


Pr re a a a ke eal 


* THIS SHOULD RE A PERMANENT ATTACHMENT TO THE ORIGINAL BULLETIN ~ 


Pree a ee ee i ce i al 
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ECU COMPUTING CENTER 
85500 SYSTEMS BULLETIN # 3 


23 APRIL 75 


SUBJECT: ERROR NOTIFICATION = CORRESPONDING OPTIONS IN cOBOL68 


AVOID THE USE OF MOVE CORRESPONDINGs ADD CORRSSPONDINGs AND SUBTRACT 
CORRESPONDING WHEN EITHER THE SENDING oR RECEIVING FIELDS ARE 
SUBSCRIPTED® THE SUBSCRIPTS ARE NOT HANDLED CORRECTLY AND INCORRECT 
RESULT2 WILL OCCUR. 
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ECU COMPUTING CENTER 
B55CO SYSTEMS BULLETIN # 4» REVISION 1 


95 APRIL 76 


SUBJECT: REVISION NOTICE = TARLE SIZE LIMITS IN COBOL68 


en S®nranae Se SP nen FF Se He OM ey anne sa Beaman om Sungate 


THE PROBLEM WHERERY A  sYNTAX ERROR WAS NOT PRODUCED IF AN ARRAY 
EXCEFDED THE LIMIT HAS BEEN CORKECTEDe THE CORRECTION IS EFFECTIVE IN 
COBOL6& LEVEL 1660.04 AND SUBSEQUENT LEVELS, 


ee ee ee 2 
* THIS SHOULD BE A PERMANENT ATTACHMENT TO TRE ORIGINAL BULLETIN * 
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ECU COMPUTING CENTER 
685500 SYSTEMS BULLETIN # 4 


23 APRIL 75 


SUBJECT: ERROR NOTIFICATION = TABLE SIZE LIMITS IN COBO. 68 


Se@nanwam aan en @e ae Gna enn @ ae os ae oe oman eae nan es Lod aan, Oe 


IN COBOL68 THE MaxIMUM SIZE OF ANY TABLE IS 8184 CHARACTERS, IN 
SOME CASES TABLES DECLARED In EXCESS OF THIS LIMIT WILL NOT BE FLAGGED 
AS BEING IN ERROR UNTIL ALL OTHER ERRORS ARE CORRECTED. 
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ECU COMPUTING CENTER 
85500 SYSTEMS BULLETIN # 5 


28 APRIL 75 


SUBJECT: FORTRAN OBJECT PROGRAM TERMINATION MESSAGES 


Se Raaan ~eSenw a Sen eae Bana ae we Se Sn GaeawFnanmn aan a*en a 


THE RECORD NUMBER WHICH IS QUTPUT IN THE FORTRAN OBJECT PROGRAM 
TERMINAL MESSAGE SUCH As 


w=TYPE ERR ON FILE «© « » 
*?"NAMELIST ERROR ON FILE « « « 


AND OTHER SIMILAR MESSAGES RFFERS TO THE PHYSICAL RECORD NUMBER CBLOCK 
NUMBER)» IF THE FILE IS YNBLOCKED» THE PHYSICAL RECORD NUMBER WILL BE 
THE SAME AS THE LOGICAL RECORD NUMBERS HOWEVER* IF THe FILE 1S BLOCKED 
AND THE ERROR IS ON RECORD #nNe LOOK IN THE NTH BLOCK TO FIND THE ERROR 


RATHER THAN IN THE NTH RECORD. 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 6 


20 MAY 75 


SUBJECT’ READ ERROR BRAWCH IN FORTRAN 


Se@Cna sen HF ae Fan Reg ee PF Zee ee 


ALTHOUGH THE "“ERR=w OPTION OF A FORTRAN READ STATEMENT IS PRIMARILY 
DESIGNED TO ALLOW PROGRAMMATIC HANDLING OF PARITY ERRORSs IT MAY BE USED 
TO PROGRAMMATICALLY PROCESS TYPE ERRORS ON INPUTe ANY TYPE ERROR OR 
PARIvy ERROR wILL CAUSE A BRANCH TO BE TAKEN TO THE LaBEL INDICATED BY 
THE ERR" SpECIFICATION? THE RECORD MAY THEN BE PROCESSED IN ANY 
MANNER DESIRED, INCLUDING RE*READING THE RECORD WITH ANOTHER FORMAT» 
NOTEs HOWEVER» THaT SOME SORT OF A READ SOATEMENT MUST BE EXECUTED IF 
ONLY A OyMMY READ QO CLEAR JHE BUFFERe IF NO READ IS EXECUTEDs THE 
SYSTEM WILL INFINITELY REAO Thr OFFENDING CARD. 
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ECU COMPUTING CENTER 
BSS5S0CO SYSTEMS BULLETIN # 7» REVISION 1 


05 APRIL 76 


SUBUFCT! REVISION NOTICE = ZERM SUPPRESSION IN COBOL68 


THE KNOWN PROBLEMs WITH ZERO SUPPRESSION HAVE BEEN CORRECTED. THE 
CORRecTION IS EFFECTIVE IN cCOBOL68 LEVEL 16+0+602 AND ALL SUBSEQUENT 
LEVELS. 


Pr a ee a ed 


* THIS SHOULD BE A PERMANENT ATTACHMENT TO THE ORIGINAL BULLETIN * 


ee a 2 * * © © ke © & we ek we ee 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 7 
20 MAY 75 


suUBYECTs ERROR NOTIFICATION = ZERQ SUPPRESSION IN COBOL68 


auW®nan nae Sena neaee em wa ey, = uu en ee eee anaet*aangaeam =a” Saran” 


MOVING A DATA@NAME WITH A VALUE OF ZERO TO A DATASNAME WITH TOTAL 
ZERO SUPPRESSION EDITING (IleE«e, PICTURE OF ALL 2"S OR PICTURE 
CONTAINING BLANK WHEN ZERO CLAUSE) MAY CAYSE A PROGRAM OR SYSTEM HANG. 
AVOIN THE USE OF TOTAL ZERO SUPPRESSION WHENEVER POSSIRLE UNTIL FURTHER 
NOTICE. 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 8 


18 JUNE 75 


SUBJECT: CPTIMUM USE OF CONSTANTS IN COBOL68 


CONSTANTS IN THE RANGE =1023 $ CONSTANT < 1023 SHOULD BE USED IN THE 
FORM OF NUMERTC LITERALS FOR OPTIMUM RESULTS IN cOBOL683 HOWEVER, 
CONSTANTS OUTSIDE TRIS RANGE SHOULD BE GIVEN A LEVEL 77 COMP=1 DATANAME 
FOR OPTIMUM RESULTS, 

A=A@wA 
PAGE 16 


ae 


ECU cOMPUTING CENTER 
B5500 SYSTEMS RULLETIN # 9 


7 JULY 75 


SUBJECT: THE "IF NUMERIC” TEST IN COBOL68 


NOTE THAT THE NUMERyC TEST ON AN ELEMENT DECLARED WyTH X"S AS ITS 
PICTURE WILL NOT ALLOW A SIGNED NUMBER». THE RESULT WILL BE NUMERIC ONLY 
IF EACH DIGIT OF THE ELEMENT CONTAINS A NUMBER*® IF A SIGNED NUMBER Is 
TO BE ALLOWED» THEN THE X*FIELD MUST BE REDEFINED AS A OSFIELD WITH A 
sI1Gy INDICATOR. THE NUMERIC TEST SHOULD THEN BE DONE ON THE REDEFINED 
AREA. 00 NOT MOVE THe X*=FIELD TO A S*FIELD TO accOMPLISH THIS aS THIS 
WILL CAUSE A STRIPPING OF THE ZONE BITS AND THE DATA WILL ALWAYS BE 
NUMERIC. 


EXAMPLES? 
VALUE PICTURE RESULT 
1iJ CrLit) XXX NOT NUMERIC 
11J $999 CREDEFINES) NUMERI¢ 
1Ji Xxx NOT NUMERIC 
1yl §999 CREDEFINES) NOT NUMERIC 
Kee (€"222) XXX NOT NUMERIC 
K22 J999 CREDEFINES) NUMERI¢ 
111 XXX NUMERIC 
141i J999 CREDEFINES) NUMERI¢ 
111 $999 CREDEFINES) NUMERI¢ 
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ECU COMPUTING CENTER 
R5500 SYSTEMS BULLETIN # 10 


FULLY. 75 


SUBYECT: SORT PARAMETEP DEFAULT VALUES IN COBOL68 


1. OUE TO AN OVERSIGHTs THE DEFAULT OPTIONS FOR MEMQRY SIZE AND DISK 
SIZE (BOTH PERTAINING TO SORT) HAVE BEEN INCORRECTe THESE ARE NOW 
CORRECT AND AS FOLLOWS! 

MEMORY SIZE = 6000 WORDS 

DISK SIZE = .25 MODS, 
THE DEFAULT OPTIONS MAY BE OVERRIDDEN BY INCLUSION OF THE PROPER 
PHRASES IN THE OBJFECT@=COMPUTER CLAUSE. 


2+ SORTS SHOULD NOT BE OIRECTED TO USE DISK AND TAPES wHEN ONE DOES NOT 
INTEND TO USE TAPES, THE nISK*ONLY SORT SHOULD BE USED UNLESS LARGE 
VOLUMES OF DATA ARE TO BE SORTED. ASSIGNING SMALL SORTS TO A TAPS 
AND DISK SORT SOMETIMES CAtiSES PROBLEMS BY SWITCHING TO TAPE WHEN IT 
1S NOT NECESSARY, 
AwAmA 
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ECU COMPUTING CENTER 


B5500 SYSTEMS RULLETIN # 11» REVISION 3 
06 APRIL 76 


SUBJFECT#§ REVISION NOTICE = PARTTY CHECKING IN COBOL68 


THE COBNL68 PROCEDURE wPARITY/CHECK™ WILL NOT BE AVAILABLE AFTER 93 
00 AM ON THURSDAY» APRIL Be 1976-6 PARITY CHECKING IS NOW HANDLED 
AUTOMATICALLY BY THE MCP, PROGRAMMATIC PARITY HANDLING IS NECESSARY 
ONLY IF THE PROGRAM IS TO PROCESS THE BAD DATA. 


a | 

* THIS SHOULD BE A PERMANENT ATTACHMENT TO THE ORIGINAL BULLETIN * 

ee ee 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 11 


11 JULY 75 


Clad 


SUBJECT: PARITY CHECKING IN COROL68 


SeF annem HEB Fe yy gy a Ew 


A STANDARD PROCEDURE FOR PARITY CHECKING IN COBOL68 IS NOW AVAILABLE. 
THE PROCEDURE» WHICH REMAINS ON DISK AS A_ PERMANENT FILEs MAY BE 
INCLUDED IN A COBOL6R PROGRAM BY INCLUDING THE FOLLOWING CARD AS THE 
FIRST STATEMENT OF THE PROCEDURE DIVISION, 


COPy "PaRITY/CHECK” REPLACING BOMB RY FILE*NAMEs 


WHERE FYLE*NAME JS THE NAME OF ANY FILE COTHER THAN A PRINT FYLE) IN 
THE PROGRAM WHICH REMAINS OPEN DURING THE POOGRAM. 


THE PARITY CHECK RQUTINE WILL TYPE AN APPROPRIATE MESSAGE To THE 
OPERATOR AND THEN DQ AN OPEN ON THE SPECIFIED FILE. SYNCE THIS FILE Is 
ALREADY OPEN» THE PROGR~M WILL BE DS@ED WITH aN IO FRRORs 
AwtAHA 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 12 
31 JULY 75 


SUBJECT: EBCDIC OPTION FOR BASIC COMPILER 


Seten eae FOC Se ww ew ey FM we oe eo on 


THE BASIC COMPILER NOW HAS AN OPTION SIMILAR TO THE H6L OPTION IN 
FORTRAN FOR PROVIDING EBCDIC TO BCL CONVERSION THIS OPTION WILL 
PROVIDE FoR PROPER CHARACTER TRANSLATION OF BASIC PROGRAMS WHICH ARE 
PUNCHED ON IBM=029 KEYPUNCHES. THE FRCDIC OPTION DEFAULTS TO RESET BUT 
MAY BE SET AND RESEY IN THE STANDARD MANNER USED FOR OTHER $CARD 
OPTIONS, 


EXAMPLES# 
$ CARD LIST ERBCDIC 


$ SeT EBCDIC 


EBCDIC CHARACTER SET FOR BASIC ON THE B5590 


A TN Z r ( @ 
0 T1o 9 r) ) & 
BLANK i < $ 
+ ; > = 
x: # % 

/ 


WARNING * * * REFER TO APPENDIX B OF THE BASIC MANUAL WHEN USING BASIC 
THROUGH THE CARD READER. 
AwAwA 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 13 


26 JULY 75 


SUBJECT! RELEASE 1620 IMPLEMENTATION = COMPILERS 


Benen een ERE HBR FBR VAT Z Se ,_ Pease ee Bees Bete 


‘IMPLEMENTATION OF SOFTWARE RELEASE MARK 16-0 HaS BrFGUN ON SCHEDULE. 
THE RELEASE IS BEING PREPARED AND BROUGHT ONLINE IN PHASES AS HAS BEEN 
THE CUSTOM IN THE PAST. 


THE NEW RELEASE DOFS CONTAINS SEVERAL NEW FEATYRES FOR BOTH THE MCP 
AND COMPILERS. SOME ADDITIONAL LOCAL ENHANCEMENTS ARF BEING INSTALLED 
CONCURRENTLY» ALSO. ALTHOUGH EVERY EFFORT IS BEING MADE TO KEEP 
PROBLEMS TO A MINIMUM, IT IS POSSIBLE THAT A FEW MINOR PROBLEMS MAY BE 
EXPERIENCEDe USERS ARE ENCOURAGED TO BE ON THE LOOKOUT FOR ANY PROBLEMS 
ASD TO AID US BY REPORTING ANY PROBLEMS EXPERIENCED. 


TO AVOID CONFUSION» THE NEW IMPLEMENTATIONS WILL NOT BE ANNOUNCED AT 
THIS TIMEs AS SOON AS THE INITIAL IMPLEMENTATION OF THE ENTIRE RELEASE 
IS COMPLETE» ALL CHANGES, YMPLEMENTATIONS AND ENHANCEMENTS WILL BE 
RELEASFN IN DFTAIL. 


THE FOLLOWING RELEASE 16 SOFTWARE WAS BROUGHT ONLINE AT 9100 AM ON 
8/25/75: ALGOL» XALGOL» BASIC» COBOL» CQOBOQ368» CANDE. 
AwAeA 
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EcU cOMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 144 


28 AUGUST 75 


SUBJECTS$ RELEASE 16,0 IMPLEMENTATION = FORTRAN 


THE RELEASE 16 FORTRAN COMPILER WAS BROUGHT ONLINE AT 9300 AM ON 8/ 
28/75. THERE aRe NO OFFICIaL ENHANCEMENTS TO FORTRANS HOWEVERs THERE 
ARE SEyERAL LOCAL ENHANCEMENTS. DETAILS wILL BE RELEASED ArT A LATER 
DATE 

USERS ARE ENCOURAGED To BE ON THE LOOKOUT FOR ANY PROBLEMS AND TO 
AID us BY REPORTING ANY PROBLEMS EXPERIENCEDe 
AwAwA 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 15 


8 SEPTEMBER 75 


SUBJECT! MAXIMUM NUMBER OF ELEMENTS IN FORTRAN DATA STATEMENT 


THE MAXIMUM NUMBER OF DaTA#ITEMS THAT MAY BE INCLUDED IN A SINGLE 
DATA STATEMENT IN FORTRAN IS 128% WHERE A pATAPITEM 7S OF THE FORM R* 
CONSTANTe THE COMPILER IS SMART ENOUGHs HOWEVER» Tq SQUASH LISTS OF 
ADJACENT CONSTANTS INTO THAT FORM WHERE POSSIBLE. 


EXAMPLE! 
DATA 1[/19223296059599995 255 ebeTeT/ 
WHERE I IS AN ARRAY IS CONSIDERED TO BE 
DATA T/1229324 2685269247 / 
AND THUS CONTAINS 7 DATA*ITEMS RATHER THAN 13 
AwAmA 
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ECU cOMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 16 


07 OCTOBER 75 


SUBJECTS RELEASE 16,0 IMPLEMENTATION = MCP AND INTRINSICS 


See Seana es ea eanaw wna m Se Sen aaet ge aaa - om awe aM aang Paw, & 


THE FINAL PHASE OF RELEASE 1640 INSTALLATION WILL BEGIN AT 9800 AM 
ON MONDAYs OCTOBER 135 1975. AT THIS TIMEs THE MCp CROTH BATCH AND 
TIME@SHARING) AND INTRINSICS WILL BE BROUGHT ONLINE FoR FINAL TESTIN7. 
BARRING ANY COMPLICATIONSs THyS RELEASE WILL REMAIN ONLINE PERMANENTLY, 


USERS ARE ENCOURAGED TO EXAMINE THEIR JOBS CAREFULLY AND TO REPORT 
ASY UNUSUAL DIFFICULTIES WHICH MAY BE A RESULT OF THE NEW RELEASEs 
COMPLETE DOCUMENTATION CONCERNING CHANGES AND ENHANCEMENTS WILL BE 
PUBLISHED AND RELEASED IN 2=4 WEEKSe 
AmAmA 
PAGE 25 


ECU cOMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 175 REVISION 2 


22 JULY 76 


SUBYECT: ERROR NOTIFICATION = COMPUTATIONAL ITEMS IN COROL68 


aon Fare nrag mn ee ae F enw eg, 22m - eB Reeuvuaae Om saan @ 7 m- on, 7 © @ 


1? WAS THOUGHT THAT ALL PROBLEMS WITH ALIGNMENT OF COMPUTATIONAL 
ITEMS WERE CORRECTED. IT HAS BEEN NOTED HOWEVER, THAT CERTAIN 
ARRANGEMENTS OF ITEMS STILL CAUSE INVALID ADDRESS TERMINATIONS DUE TO 
ALIGNMENT PROBLEMS, 


IT IS SUGGESTED THAT FARTICULAR CARE BE TAKEN TCG GRQUP COMPUTATIONAL 
ITEMS TOGETHER WHEN aT ALL POSSIBLE. IN OTHER CASES» INSERT A 
SUFFICIENT AMOUNT OF FILLER wHERE NEEDED TO FORCE WORn ALIGNMENTe FOR 
OTHER INFORMATIONs REFER To THE ORIGINAL RELEASE OF THIs BULLETIN. 


a ee a nd 


* THIS SHOULD BE A PERMANENT ATTACHMENT To THE ORIGIQAL BULLETIN * 


Pr rr er ae ce 
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ECU COMPUTING CENTER 
B5500 SYSTEMS RULLETIN # 175 REVISION 1 


11 JUNE 76 


SUBJECT! REVISION NOTICE = COMPUTATIONAL ITEMS IN COBOL68 


agaeSeaanae eu eeqen & Sa enree Lal SRR gae een an Saeeen ae ae Foe, & 


ALL KNOWN PROBLEMS WITH NON*WORD ALIGNED COMPUTATIONAL ITEMS HAVE 
BEEN CORRECTED, THE CoRRECTIQNS ARE EFFECTIVE IN COBOL68 LEVEL 16,0,13 
AND ALL SUBSEQUENT LEVELS. 


NoTE THAT WHILE WORD ALIGNED COMPUTATIQNAL ITEMS ARE MORE EFFICIENT» 
It IS NOT MANDATORY THAT COMPUTATIONAL ITEMS BE WORD ALIGNEDe 


ee a ee er 
* THIS SHOULD BE A PERMANENT ATTACHMENT TO THE ORIGINAL BULLETIN * 


a al 
A@wAmA 
PAGE 27 


ECU COMPUTING CENTER 
R5500 SYSTEMS BULLETIN # 17 


O07 QCTOBER 75 


SUBJECT: ERROR NOTIFICATION = COMPUTATIONAL ITEMS IN COBOL68 


ene Ganwaae aeaunwaqe ae we Sa yy Ho - an eu aentMeana Gane ae a 2a en, 7 ww 


a, 


AS A GENERAL RULE» ALL COMPUTATIONAL ITEMS IN A COBQL68 PROGRAM MUST 
BEGIN AT A WORD BOUNDARY. THE PROGRAM*ER IS RESPONSIBLE FOR INSERTING 
AN APPROPRIATE AMOUNT OF FYLLER TO ALIGN COMPUTATIQNAL ITEMS TO THE 
PROPER BOUNDARY. AT THE PRESENT TIMEs THE COMPILER WILL NOT 
AUTOMATICALLY 00 THIS ALIGNMENTs AND FURTHERMOREs IT WILL NOT PRODUCE A 
SYNTAX ERROR OR WARNING MESSAGE WHEN COMPUTATIONAL ITEMS ARE "OT ALIGNEDs 
AT EXECUTION TIMEs HOWEVERs CERTAIN ACCESSES TO THESE MISALIGNED ITEMS 
WILL CAUSE THE PROGRAM 7TO BLOW UP WITH AN INVALID ADDRESS, 


EXAMPLES 
INCORRECT CORRECT 
O01 STUFF. O1 STUFF. 
03 A PIC X¢€132), 03 A PIC X(€132). 
03 B PIC S$9(11) COMP, O3 FILLER Pile XC4)-. 
03 € PIC S$9(¢41) COMP, 03 B PIC $9¢11) COMP, 
03 C PIC $9¢11) COMP, 
PREFERRED 


O1 STUFF. 
03 B PYrC S9C¢11) COMP, 
03 C Prec $9¢11) COMP, 
03 A PyYC XC€132), 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 18 


26 NOVEMBER 75 


SUBJECT® CHANGES AND NEW FEATURES IN RELEASE 1660 = BATCH MCP 


THE ENTIRE MARK 16,0 RELEASE IS NOW ONLINEs THUS FARs A MINIMUM 
NUMBER OF PROBLEMS HAVE BEEN EXPERTENCED. A COMPLETE ITEMIZATION OF 
CHANGES AND NEW FEATURES APPLICABLE TO THE BATCH MCP FOLLOWS. 


Ae THE LIBRARY MAINTENANCE RnUTINES HAVE BEEN COMPLETELY REWRITTEN 
TO INCORPORATE THE USE OF A NEW CONTROL CARns THE "COPY" 
CONTROL CARD. THIS REWRITE ALSO EXTENDS THE USE OF “EXCEPT” 
LISTS TO THE "REMOVE" CONTROL CARD. DOCUMENTATION FOR THIS 
FEATURE IS LENGTHY AND CANNOT BE INCLUDED HERE. USERS DESIRING 
TO wuTILIZE THE NEW LIRRARY MAINTENANCE SHOULD CONTACT THE 


Be 


Ce 


De 


Ee 


AmAwA 


F. 


AtAwA 


COMPUTING CENTER FOR DOCUMENTATION.’ 


THE BATCH MCP IS NOW COMPATIBLE WITH THE TSSMCP IN THE AREA OF 
DISK FILE NAMING. THAT IS* IF THE FILES MFID IS ZERO THEN THE 
FILES FID 1S MOVED To THE MFID AND THE USERCODE IS MOVED TO THE 
FIDe FOR EXAMPLE «A FILE THAT PREVIOUSLY WOULD HAVE BEEN 
OOOOCOO/FILNAME IS NOW FILNAME/USERCODE. 


WHEN AN ERROR IS DETECTED IN A PACKETs THE PaCKET WILL BE 
FLUSHED COMPLETELY (TO THE ENO CARD) = NOT JUST TO THE NEXT 
WAIT CARD, 


THREE NEW TIME FUNCTIONS HAVE BEEN ADDED. 


TIME (#3) = RETURNS CURRENT STATUS OF PACKETERR BIT 
TIMEC#4) = SETS THE PACKETERR BIT 
TIME¢#5) = RETURNS THE CURRENT VALUE OF PACKETACT 


THESE THREE FUNCTIONS WERE ADDED TO GIVE A PROGRAM SOME CONTROL 
OVER THE PACKET. NOW A PROGRAM CAN "KILL™ A PACKET BY A TIME 
FUNCTION (€*4) RATHER THAN BY OS#ING ITSELF WITH A RUN TIME 
FRROR, aLSQ» , PROGRAM CAN "SEE" IF a SISTER PROGRAM HaS RUN 
INTO TROUBLE (#3) AND FINALLYs A PROGRAM CAN TELL HOW MANY 
JOBS ARE RUNNING FROM THe PACKET AT THIS TIME ("5),_ NOTE THAT 
TIMEC #4) WILL RETURN THE VALUE OF PACKETERR BEFORE IT SETS ITe 


THE FILE CLOSE MESSAGES PLACED IN THE PACKET PAGE INFORMATION 
HAVE BEEN IMPROVEDe PREVIOUSLY ONLY PRINTER@BACKeuP (PBD/PUD) 
CLOSE MESSAGES CONTAINEn RECORD COUNTS. NOW ALL FILE CLOSE 
MESSAGES CONTAIN RECORD COUNTSe THE DISK FILE CDOKA) CLOSE 
MESSAGES NOW INCLUDE THE CREATION ATE OF THe FILE» WHICH 
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PREVIOUSLY HAS NaT BEEN AVAILABLE> A NEW MESSAGE CRET) IS 
PROOUCED cacH TIME a FILE IS CLOSED pUT THE PROGRAM RETAINS 
CONTROL OF THE UNITe THE MESSAGE IS IN THE SAME FORMAT AS THE 
OTHER MESSAGES CREL*»LOK), PREVIOUSLY» THE ONLY MESSAGE 
PRODUCED FOR A- RETAINED FILE WAS A REL MESSAGE aT THE END OF 
THE PROGRAMe 


THE STACK TRACE HAS REEN SHORTENEDe NOW ONLY THE RCW"S ARE 
SHOWN ALONG WITH THE APPROPRIATE LOCATION INFORMATION A FULL 
STACK TRACE MAY BE OBTAINED IF THE PROGRAM IS EXECUTED WITH AN 
10 TIME LIMIT OF 1i¢ile 


THE SINGLE*QUQTF MAY NOw BE USED AS A BACKSPACE CHARACTER FOR 
ALL TYPE 19 FILES CREMOTE)+ THIS PROVIDES COMPATABILITY WITH 
BOTH CANDE AND R/Ce NOTE HOWEVER THAT THE LESS=THAN CHARACTER 
MUST STILL BE USED AS THE BACKSPACE FOR ALL CONTROL CARDS AND 
MCP COMMUNICATION, THE SINGLE@QUOTE STILL *WILL NOT* WORK FOR 
ANY MCP COMMUNICATION, 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 19 
246 NOVEMBER 75 


SUBJECT: CHANGES AND NEw FEATURES IN RELEASE 16.0 = TIMF*SHARING MCP 


THE ENTIRE MARK 146260 RELEASE IS NOW ONLINE.e THUS FARs A MINIMUM 
NUMBER OF PROBLEMS HWaVE BEEN EXPERIENCED. A COMPLEYE ITEMIZATION OF 
CHANGES AND NEW FEATURES APPLICABLE TO THE TIME*SHARING MCP FOLLOWS, 

A, LIBRARY MAINTENANCE = SAME AS BATCH MCP DESCRIPTION A 
B. TIME FUNCTIONS = SAME AS BATCH MCP DESCRIPTION D 

Ce FILE CLOSE MESSAGES = SAMF AS BATCH MCP DESCRIPTION E 
O. SHORT STACK TRACE = SAME aS BATCH MCP DESCRIPTION F 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 20 


26 NOVEMBER 75 


SUBJECT: CHANGES ANn NEW FEATURES IN RELEASE 1640 © XALGOL 


SeEGaavan SR rere FEN Fe FEF eee 27 ee eeeee wee « saa Om 


THE ENTIRE MARK 14640 RELEASE IS NOW ONLINE. THUS FARs A MINIMUM 
NUMBER OF PROBLEMS Have BEEN EXPERIENCED+ A COMPLETE ITEMIZATION OF 
CHANGES ANO NEW FEATURES APPLICABLE TO XALGOL FOLLOWS» 


A. THE SEARCH STATEMENT WrLL NOW RETURN THE ENT]RE DISK FILE 
HEADER IF THE SEARCH ARRAY IS GREATER THAN 49 WORDSe THE 
HEADER IS PLACED IN WORDS 40°39. 


Be 


AmAwA 


Ce 


A NEW $*CARO = THE $ INCLUDE CARD 
THE SYNTAX FOR THE $ INCLUDE CARD IS AS FOLLOWS? 
$ INCLUDE <COPY PART> «FILE PART> <SEQUENCE PART> 


<CNPY PART> 885 <EMPTY> / + COPY 
<FILE PART> 835 <MULTI@FILE IO0>/<FILE 10? / 
<MULTI@FILE I0> 
<MULTI@FILE IO> 322 <ALPHANUMERIC STRING 
Or 7 OR FEWER CHARACTERS> 
<FILE Ip> 882 <EMPTY> / <ALPHANUMERIC STRING> 


<SEQUENCE PART> st= <STARTING SEQUENCE NUMBER> cENDING SEQUENCE 


NUMBER> / <&MPTY> 
<STARTING SEQUENCE NUMBERD> %88 <UNSIGNED INTEGER? 
<ENDING SEQUENCE NUMBER> #353 <EMPTY> / = <UNSIGNED INTEGER> 


SOME EXAMPLES ARE? 

INCLUDE A/B 1213°99932 

INCLUDE A 12301"7765, 

INCLUDE*CUPY SPECIAL/FILE 76333124487 
INCLUDE A 12293 

INCLUDE A 

INCLUDE + COPY IT 


fw 


Se de a ad 


INCLUDE INSTRUCTS THE COMPILER TO COMPILE THE SoURCE CODE ON 
THe nlsk FILE <FILE PaRT> OVER THE RANGE <SEQUENCE PART> AS 
PART OF YHE ENTIRE PROGRAM. IN THIS MANNER, THE USER CAN 
COMPLE ALL OR PqRT OF AN AUXILLARY FILECS) y:NTO HIS PROGRAM, 
IF THE <FILE Ids IS NOT PRESENT» THE USERCODE Is USED AS THE 
<FILE ID>. THE STARTING AND ENDING SEQUENCE NUMBERS ARE 
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INCLUSIVE. OF THE <SEQUENCE PART> IS EMPTY* THE ENTIRE FILE IS 
USED, IF ONLY THE STARTING SEQUENCE NUMBER JS PRESENT» THE 
FILE FROM THAT SEQUENCE NUMBER TO THE END OF THE FILE IS USED. 
IF BOTH SEQUENCE NUMBERS ARE PRESENT» THE FILE FROM THE 
STARTING SEQUENCE TO ENDING SEQUENCE INCLUSIVEs Ig USED. IF A 
NEW FILE I8S BEING MADE» AND THE COPY PART TS EMPTY» ANY 
IMRBEDDED $ INCLUDE CARDS WILL RE WRITTEN ON THE EW FILE» BUT 
NOY THE INCLUDEO FILES THEMSELVES+ THIS PROVIDES THAT THE NEW 
FILE* WHEN IT ITSELF IS COMPILED» WILL INCLUDE THE FILES« 
WHILE AT THE SAME TIMe ALLOWING THE INCLUDEp FILES TO BE 
UPDATED INDEPENDENTLY OF THE NEW FILEe IF A NEW FILE IS BEING 
MADE AND THE COPY PART IS PRESENT» THE IMBEDDED $ YNCLUDE CARDS 
WILL NOT BE WRITTEN Out ON THE NEW FILE» 8yT RATHER THE 
INCLUDED RECORDS THEMSELVES WILL BE COPIED ONTO HE NEW FILE. 
THE COPY PART IS IGNORED IF A NEW FILE IS NOT BEING MADE+ NOTE 
THaT INCLUDED FILES CAN HAVE $ INCLUDE CARDS IMREDDED WITHIN 
THEM» AND THYS RECYRSION ON THE $ INCLUDE CARDS CAN OCCUR, 


THE GREATEST ALPHARETIC FoRMAT HAS BEEN EXPANDED FROM A6 TO A7e 
THIS WILL ALLOW 7 ALPHA CHARACTERS TO BE STORED IN A WORD 
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WITHOUT HAVING TO USE PARTIAL WORD MOVES OR CONCATENATION, 
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ECU cOMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 21 


26 NOVEMBER 75 


SUBJECT: CHANGES AND NEW FEATURES IN RELEASE 16.0 = BASIC 


THE ENTIRE MARK 46-60 RELEASE IS NOW ONLINEC THUS FAR» A MINIMUM 
NUMBER OF PROBLEMS HAVE BEEN EXPERIENCED. A COMPLETE ITEMIZATI6N OF 
CHANGES AND NEW FEATURES APPLICABLE TO BASIC FOLLOWS. 


Ae BASIC PROGRAMS MAY NOW BE COMPILED FROM THE CARD READER FOR 

TERMINAL EXECUTION BY USING A 
? BASIC COMMON#4 

CONTROL CARD IN THE COMPILE*TO=LIBRARY DECK, PREVIOUSLY» THE 
INPUT AND PRINT STATEMENTS OF A PROGRAM COMPILED FROM THE CARD 
READER WOULD REFERENCE THE CARD READER AND PRINTER RESPECTIVELY: 
THIS NEW OPTION WILL ALLOW COMPILATION OF LARGE BaSIC PROGRAMS 
FROM CARDS» BUT STILL ALLOW EXECUTION FROM TERMINALS WITHOUT 
THE BOTHER OF FILE EQUATIONe 

AwmAwA 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 22 


24 NOVEMBER 75 


SUBJECT: CHANGES AND NEW FEATURES IN RELEASE 1640 = CORRL68 


ae @reanwea ena Sa eaa =m we em» manne we ~~ eee etnanam annem @ - =a, He 


THE ENTIRE MARK 4640 RFLEASE IS NOW ONLINE. THUS FARs A MINIMUM 


NUMBER OF PROBLEMS HAVE BEEN EXPERIENCEDs A COMPLETE ITEMIZATION OF 
CHANGES AND NEW FEATURES APPLICABLE TO COBOL68 FOLLOWS, 


A 


AwAwa 


Be 


A NEW $*CARD OPTION = TSSCOPY 


THE TSSCOPY $=CARD OPTInN HAS BEEN IMPLEMENTED To PROVIDE FOR 
LIBRARY FILES BEING IN EITHER BATCH OR CANDE FORMAT IS THE CASE 
FOR OTHER COMPILER INPUTe LIKE OTHER $*CARD OPTIONS» IT MAY BE 
SETs RESET» AND POPPED. THE ACTION TAKEN FOR BOTH SET AND 
RESET STATES IS DESCRIBED BELOW. 


TSSCOPY SET: 
THE INCOMING LIBRARY*=FILE ONPUT RECORDS ARE 
EXPECTED TO BE JN CANDE FORMAT? 
COLUMNS 1 THRU 72 «= COBOL STATEMENT 
COLUMNS 73 THRU 80 = SEQUENCE NyMBERCONLY 75 
THRU 8O ARE SIGNYFICANT) 
TSSCOPY RESET? 
THE INCOMING LIBRARY*FILE INPUT RECORDS ASE 
EXPECTED TO BE IN STANDARD COBOL=STATEMENT 
FORMAT? 
COLUMNS 1 THRU 6 = SEQUENCE NUMRER 
COLUMNS 8 THRU 72 = COBOL STATEMENT 
COLUMNS 73 THRU 80 # IDENTIFICATIONs COMMENT» 
OR BLANK 
BY DEFAULT» TSSCnorPY IS SET WHEN COMPILING 
FROM REMOTE THRU CANDEe IT IS RESET 
WHEN COMPILING IN A BATCH MODE FROM THE 
CARD READER, 


PRIOR TO THIS PATCH, ChPIED FILES WERE EXPECTED TN BE IN THE 
SAME FORMAT AS THE PRIMARY INPUT FILE (CARD)>+ CONSEQUENTLY» 
BATCH COMPILATIONS WERE UNABLE TO COPY CANDE FORMAT LIBRARY 
FILE ANDO REMOTE COMPILATIONS WERE UNABLE TO COPY STANDARD 
COBOL*STATEMENT FORMAT LIBRARY FILES» THIS PATCH aLSO CORRECTS 
1 PROBLEM WITH THE SEQUENCESRANGE OPTION OF THE COPY STATEMENT. 
PRIOR TO THIS PATCHs THE FIRST SIX COLUMNS OF THE INCOMING 
LIBRARY@FILE RECORD wERE ALWAYS USED FOR THE SEQUENCE@ RANGE 
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COMPARISON=*"F YEN IF THE INCOMING LIBRARY=FILE RECORD wWaS IN 
CANDE FORMAT, 


THE DISPLAY VERB HAS BEEN MODIFIED SO THAT THE MESSAGE WILL BE 
DISPLAYED AT THE CONSOLE ONLY IF THE UPON CONSOLE COR SIMILAR 
PHRASE) PHRASE IS PRESENT. THE MESSAGE WILL aPPEAR IN THE 
PACKET PAGE INFORMATION FOR ALL CASES» HOWEVERe THIS FEATURE 
WILL ALLOW THE pISpLAY VERB TC BE USED AS A DEBUGGING TOOL 
WITHOUT DELUGING THE OPERATOR WITH MESSAGES HE DOESN"T CARE 
ABOUT, 


A NEW $#CARD CPTICNs, EBCDICs HAS BEEN IMPLEMENTED, THE 
OPERATION OF ANO CHARACTER SET PROVIDED BY THIS OPTION ARE BOTH 
IDENTICAL 10 THAT FOR BASIC = REFER TO BULLETIN # 1426 
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EcU COMPUTING CENTER 
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26 NOVEMBER 75 


SUBJECT! CHANGES AND NEW FEATURES IN RELEASE 16-0 = FORTRAN 


THE ENTIRE MARK 1640 RELEASE IS NOW ONLINEs THUS FAR» A MINIMUM 
NUMBER OF PROBLEMS HavE BEEN EXPERIENCED. A COMPLETE ITEMIZATION OF 
CHANGES AND NEW FEATURES APPLICABLE TO FORTRAN FOLLOWSe 


Ae BOTH FORMS OF THE READ STATEMENT = READ 10°X AND READC5210) X @ 
NOW ASK FOR *"FILES%s THUS ALLOWING THE FORMS TO RE INTERMIXED 
THROUGHOUTA PROGRAM, ALSO» BOTH THE PRINT AND WRITEC 6800.) 
STATEMENTS WILL WRITE ON ONE PRINTER FILE LABELED “FILE6". 


Be A RANDOM NUMBER GENERATOR HAS BEEN IMPLEMENTED AS aN ADDITIONAL 
INTRINSIC FUNCTION FOR FORTRANe THE FUNCTION "RNOw GENERATES A 
SEQUENCE OF RANDOM NUMBERS BETWEEN ZERO AND ONEs EACH TIME IT 
IS CALLED WITH A ZERO ARGUMENT» IT PRODUCES THE NeXT NUMBER IN 
SEQUENCE IF THE ARGUMENT IS NEGATIVE A RANDOM NUMBER IS 
GENERATED AND IS USED TO INITIALIZE THE SEQUENCE> IF A 
POSITIVE ARGUMENT IS USED» THE VALUE OF THE ARGUEMNT IS 
RETURNED AS THE RANDOM NUMBER AND IS USED TO INITIALIZE THE 
SEQUENCE. ARGUMENTS GREATER THAN 1 ARE NOT ALLOWEDe IF THE 
FIRST CALL TO RND HAS A ZERO ARGUMENT» THE COMPUTER SUPPLIES A 
BUILT*IN NUMBER AS THE FIRST RANDOM NUMBER IN THE SEQUENCE. 


EXAMPLES: X#RND(O) 
X=RNDC ARG) 


C. FREE FIELD IO STATEMENTS 3UCH AS 
READsToJ 
PRINT,ACK) 
PRINT, CACJ) 2 yal 


210 
ARE NOW ALLOWED, THUS PROVIDIN 


) 

G COMPATIBILITY WITH WATFIVe 

Oe EBCDIC TO BCL TRANSLATION MAY NOW BE INVOKED RY USE OF THE 
FBCDOIC OPTION AS WELL AS THE HOL OPTIONe BOTH OPTIONS PROQUCE 
TOENTICAL RESULTS, THE ERBCOIC OPTION WAS ANDED TO PROVIDE 
COMPATIBILITY wWITR NAMING CONVENTIONS USED IN BASIC AND COBOL68e 

AwAwa 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 24 


30 DECEMBER 75 


SUBJECT& OOCUMENTATION FOR NEW AND IMPROVED FORTRAN FEATURES 


SEVERAL ADDITIONS AND ENHANCEMENTS To FORTRAN HAVE OCCURRED SINCE 
THE CURRENT MANUAL WAS RELEASEDe A COMPLETELY NEW FORTRAN MANUAL HAS 
GONE TO THE PRESSES» BUT APPARENTLY IS BEING DELAYED FOR SOME REASONs 
DOCUMENTATION FOR SOME OF THE MORE INTERESTING IMPROVEMENTS IS BEING 
PUBLISHED HERE FOR THE BENEFIT OF OUR USERSe ALL FEATURES DESCRIBED ARE 
CURRENTLY OPERATIONAL. THE ONCUMENTATION IS TAKEN FROM THE PRE*RELEASE 
OF THE NEW FORTRAN MANUAL» 


THE SUBJECTS FOR WHyCH DOCIMENTATION IS ATTACHED AREF? 


Ie THE IMPLICIT STATEMENT 
Il, FORMAT SPECIFICATIONS AND STATEMENTS 


III. FARMAT ERROR MESSAGES 
AwmAmA 
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IMPLICIT STATEMENT 


THE NONEXECUTABLE IMPLICIT STATEMENT IS AN AUXILIARY TYPE 
STATEMENT WHICH ALTERS OR CONFIRMS THE DEFAULT TYPES ASSIGNED 
TO VARIABLES DUE TO THEIR INITIAL CHARACTERS® 


THE GENERAL FORM 183 
IMPLICIT TCC) eee 
WHERE T 15 A TYPE NAME CREFER TO TYPE STATEMENTS)» C 
TS AN INITIAL CHARACTER LIST» AND THE ELLIPSIS Cece) 


INDICATES AS MANY REPETITIONS OF TRE FORM 7(C) AS 
DESTREN» WITR a COMMA PRECEDING EACH REPETITIONs 


SEVERAL IMPLICIT STATEMENTS ARE ALLOWED IN A PROGRAM UNITs AND 
ANY PROGRAM UNIT mAY CONTAIN AN IMPLICIT STATEMENTe IF USEDs 
THE IMPLICIT STATEMENT MUST BE THE FIRST STATEMENT OF THE MAIN 
PROGRAM OR THE SECOND STATEMENT OF A SUBPROGRAM, THE IMPLICIT 
STATEMENT APPLIES To SYMBOLIC NAMES ONLY IN THE PROGRAM UNIT IN 
WHICH THE STATEMENT APPEARS» INCLUDING FUNCTION AND ENTRY NAMES 
AND DUMMY ARGUMENTS, 


INITIAL CHARACTER LISTS, 


Se Fanaa @eaeneugnna @ ae enw ea 


FACH INITIAL CRARACTER LIST IS COMPOSED OF LYST ELEMENTS 
SEPARATED &Y COMMASe EACH LIST ELEMENT MAY BE EITHER A SINGLE 
LETTER OR A RANGE OF LETTERS IN ALPHABETICAL ORDERe A RANGE IS 
DENOTEN BY THE FIRST AND LAST LETTERS OF THE RANGE SEPARATED BY 
A MINUS SIGN CHYPHEN)« THE IMPLICIT STATEMENT SPECIFIES A TYPE 
FOR ALL SYMBOLIC NAMES IN THE PROGRAM UNIT THAT BEGIN WITH ANY 
LETTER THAT APPEARS IN THE SPECIFICATION EITHER AS A SINGLE 
LETTER OR INCL4DED IN A RANGE OF LETTERS. 


TYPE SPECIFICATION BY AN IMPLICIT STATEMENT MAY BE OVERRIDOSN 
BY EXPLICIT TYPE SPECIFICATION IN A TYPE STATEMENT OR IN A 
FUNCTINN STATEMENT? 


THE FOLLOWING ARE EXAMPLES OF IMPLICIT STATEMENTS! 
CNOTESTHE FIRST TWO STATEMENTS HAVE IDENTICAL EFFECT) 


IMPLICIT REALCI=N) 
IMPLICIT REAL CA#Z) 
IMPLICIT OCUBLE PRECISIOQN(D) 
IMPLICIT LOGICALCA™CsL J)» REAL *8(0"F)» COMPLEXKCX) 
AwmAwA 
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FORMAT SPECIFICATIONS AND STATEMENTS 


THE Cc FORMAT SPECIFICATION. 


wee = am Oem Sana t*en aati, Ow a 


THE ALPHANUMERIC FORMAT SPECIFICATION CW CAUSES DATA TO BE 
TRANSFERRED TO OR FROM INTERNAL STORAGE AS CHARACTERS. 


INPUT USING CW, 
ON INPUT» THe CW SPFCIFICATION CAUSES THE CHARACTER 
STRING OF WInTH W IN THE EXTERNAL FIELO TO BE 
ASSIGNED TC THE CORRESPONDING SIMPLE VARIABLE OR 
ARRAY ELEMENT IN THE 1/0 LIST. CHARACTERS ARE STORED 
INTERNALLY IN 6"BIT FORMs SIX CHARACTERS PEFR DATA 
WORD, THE CW FORMAT SPECIFICATION ALLOWS CHARACTERS 
TO BE PLACED RIGHTeUUSTIFIED INTO A OATA WORD WITH 
LEADING ZEROS, IF THE FIELD WIDTHes W EXCEEDS 6% THE 
RIGHT@=MOST SIx CHARACTERS IN THS INPUT FI¢lp ARE 


STORED INTO THE CORRESPONDING VARIABLE IN THE I/0 
LIST AND THE REMAINING CHARACTERS ARE IGNORED. 


NUTPUT USING CW, 


ON OUTPUT» THE CW SPECIFICATION CAUSES THE CHARACTERS 
CONTAINED IN THE APPROPRIATE VARIABLE IN THE I/O LIST 
TO BE PLACED INTO AN FXTERNAL STRING OF LENGTH We IF 
W IS GREATER THAN 6s THE SIX CHARACTERS CONTAINED IN 
THE DATA WORD WOULN BE PLACED RIGHT#=JUSTIFIFD INTO 
THE FIELD» PRECEDED BY BLANKSe IF W IS LESS THAN OR 
EQUAL TO 6s THE RIGHTMOST W CHARACTERS IN THE DATA 
WORD WOULD BE PLACED INTO THE FIELD. 


THE J FORMAT SPECIFICATION 


THE 


INTEGER FORMAT SPECIFICATION JW CAUSES THE EXTERNAL 
CHARACTER STRING OF MOST W CHARACTERS To BE ASSOCIATED WITH THE 


CORRESPONDING I/O LIST ELEMENT FOR PURPOSES OF DATA TRANSFER, 


INPUT USING JW, 


ON INPUTs THE JW SPECIFICATION FUNCTIONS IDENTICALLY 
TO THE IW SPECIFICATION. 


NUTPUT USING JW, 


ON OQUTPUT»s THE JW SPECIFICATION CAUSES THE VaLUE OF 
THE CORRESPONDING I70 LIST ELEMENT TO BE PRIAQTED AS 
AN INTEGER CONSTANT IN THE MINIMUM FIELD NECESSARY TO 
CONTAIN THE VALUE WITHOUT EXCEEDING We THE PLUS SIGN 
TS NOT PRINTED FOR POSITIVE QUANTITIES. IF THr VALUE 
TO BE PRINTED REQUIRES MORE THAN W CHARACTERS» W 
ASTERISKS ARE PRINTEDes FLOATING POINT VALYES ARE 
ROUNDED TO AN INTEGER VALUE BEFORE PRINTINGe 


AwAHA 
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EXAMPLES? 
INTERNAL VALUE SPECIFICATION EXTERNAL STRING 
+23 => J5 => 23 
«23 -> J5 => "pS 
+233 => J3 => 233 
233 => J3 => her 
0 => J3 => 0 


FORMAT SPECIFICATION MONIFIERS, 


THE 


ALLOW 
SIGN 


PAGE 


FORMAT SPECIFICATION MODIFIERS kK AND $ ARE PROVIDED To 
INSERTION OF THE SPECIAL CHARACTERS COMMA (€») AND DOLLAR 
C$) IN AN OUTPUT FIELDe THEY MAY NOT BE USED WITH FORMAT 
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SPECIFICATIONS IN ARRAYS. 


THE DOLLAR SIGN MODIFIER ($)-« 


IF A $ PRECEDES AN IWs UWs GWeDe FWeDse EWeDe OR OW.D FORMAT 
PHRASE» A FLOATING DOLLAR SIGN IS INSERTED IN THE gUTPUT FIELD 
ADJACENT TQ THE FIRST CHARACTER OF THE EDITED NUMBERe THE § 
PRECEDING THE PHRASE MUST BE AFFIXED DIRECTLY To THe PHRASE CE. en he 
Gy» $110.5 $620,105 OR 3P$F10,2), THE FLOATING DOLLAR SIGN 22279922? 
CONSUMES ONE CHARACTER POSITION OF THE OVERALL FIELD WIDTH» We pas 


THE K MODIFIER, 


eonr pp Fe RPO we we CO op o% 


tre A K PRECEDES AN IWe JWe OR FW.D FORMAT PHRASE, COMMAS ARE 
INSERTED InN THE QUTPUT FIELD TO DELIMIT SUCCESSIVE GROUPS OF 
THREE DIGITS CONLY 1O THE LEFT OF THE DECIMAL POINT IN THE CASE 
mF THE FWeD FORMAT PHRASE). 


THE K IS AFFIXED DIRECTLY TO THE PHRASE AND MAY BE INTERCHANGED 
WITH THE $ (CEeGe, KIL100 $KJ4s OR KSF702),. ON INPUT» THE 
COMMAS ARE IGNORED. €acH cOMMA CONSUMES ONE CHaRacTrER POSITION 
QF THE OVERALL FIELD WIDTH» We 7 


THE ASTERISK TERMINATOR (*), 


Sew see ae Fen Fee Fanaa sane Haeeaen 


WHEN EDITING UNDER AN IWse JWse FWeDe EWeD» GWeDs OR DWeD FORMAT 1 
PHRASE» FORTRAN TERMINATES EDITING UPON ENCOUNTERING AN 

ASTERISK IN THE pATUMs ANn FLUSHES CHARACTERS UNTIL THE END OF 

THE FIELM WIDTH CONTAINING THE ASTERISKED DATUM, NOTE THAT THE 

ASTERISK TERMINATOR MAY NOT BE USED WITH FORMAT SPECIFICATIONS 

IN ARRAYS, 


AwAwA 
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FOR EXAMPLE» EDITING UNnER THE PHRASE 2110, WITH DATA 742% 
RBABBB17*BBRBBRBs, THE VALUES 742 AND 17 ARE INPUT; SIMILARLY» 
WITH DATA 7428RRBRBB17RBRBBBBBs THE VALUES 7429000000 AND 
1700000000 ARE INPUT. 


THIS (€*) CONSTRUCT ALLOWS COMMENTS WITHIN THE FIELD WIDTH 
ITSELF (CEeGes 742*2SIZEBL7*=TEMPER)e alSO» THE * 7S USEFUL IN 
TERMINATING EXPONENTS» EeGes EDITING UNDER AN E20010 PHRASES 
WITH DATA 1,23E"17*BBBRBRBBBBYs THE VALUE 1.23E°17 IS INPUTs 
WHEREAS WITHOUT THE «* THE EXPONENT MUST BE RIGHT@JUSTIFIED. 
FINALLY» IF THE FIRST NONBLANKs NONSIGN»e NONZERO CHARACTER IS 
AN *» THE VALUE OF THE CORRESPONDING LIST ELEMENT REMAINS 
UNCHANGED .« THIS USAGE ALLOWS THE ASTERISKED QUTPUT WHICH 
NccuRS OURING FIELD OVERFLOW TO BE SUITABLE INPUT. 


THE ASTERISK FIELD WIDTH SPECIFIER (¥). 


IF AN ASTERISK (Cw) APPEARS IN A FORMAT SPECIFICATION LIST IN 
PLACE OF A FIELO WIDTH CW)» A DECIMAL PLACE COUNT (0D)s SCALE 
FACTOR (€S5)s OR A TAB POSITION €T)» THE I/0 LIST IS ACCESSED 
ONCE AND THE vaLUE OF THE I/0 LIST ELEMENT OBTaINEn IS USED TO 
REPLACE THE *. A NEW I/O LIST ELEMENT IS REQYIRED FACH TIME AN 
* 1S ENCOUNTERED IN THE SPECIFICATION LIST, 


FOR EXAMPLEs THIS PROGRAM: 


10 FORMAT (€1353ysI#) 
DO 5 12057 
J31+1 
KelO«es] 

5 PRINT 109 TeJsK 
STOP 
END 


PRODUCES THIS QUTPUT3 


0 i 

rt 10 

2 100 

3 1000 

4 19000 

5 100000 

6 1900000 
7 10000000 


IN THIS PROGRAMs THE VaLUE OF J IN THE I/O LISy IS USED TO 
REPLACE THE ASTERISK IN THE SPECIFICATION LIST. 


THE v FIELD SPECIFIER. 


IF A V APPEARS IN A FORMAT SPECIFICATION LIST IN PLACE OF THE 
AwAwA 
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LETTER As Ds Es Fo Gs In Js Le OR O IDENTIFYING A FORMAT 
SPECIFICATION» THE 1/9 LIST IS ACCESSED AND THE CONTENTS OF THE 
RIGHT=MOST SIX BITS OF THE DATA WORD REFERENCED ARE TREATED AS 
A CHARACTER TO BE USED IN THE aCTUaL FORMAT SPECIFICATION. 
THIS CHARACTER MUST BE ONE OF THE LETTERS JUST LISTrO3 V IS NOT 
ACCEPTABLEs A NEW 1/0 LIST ELEMENT IS REQUIRED EACH TIME THE V 
1S ENCOUNTERED IN THE SPECIFICATION LIST. 


THE FOLLOWING SAMPLE PROGRAM 


DATA B/S" TEXT" 


A="00000A" 
PRINT 1sAe8 

1 FORMATC1xeV4) 
sToP 
END 


PRODUCES THIS NUTPUT? 


TEXT 


COMBINED EXAMPLE 


THE FOLLOWING SAMPLE PRNGRAM IS MORE COMPLEX IN NATURE AND 
DEMONSTRATES BOTH THE *#@SpPECIFIER AND THE V=*SPECIFIER» 


10 FORMATC2V10,25#C#V¥,#)) 
FE"OOOOOF"™; Ta"O000001"3 A="OOO0OA"S BIG212345,673 TWO=23 
S1X263 ONE=1 
PRINT 10s1eSIXsBIGsTWOsONE SF oSIXsTWOsSIXsTWOsrArSIXsBl Gol oF 
STOPS END 


THIS SAMPLE PROGRAM WOULD PRODUCE THE FOLLOWING gUTPUT (B IS 
THE BLANK CHARACTER)? 


RBBBBBBS6BBBBB1 2346RB6, 00000001 00000F 
AwmA“A 
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FORMAT ERROR MESSAGES 


SEVERAL ERROR MESSAGES ARE PROVIDED TO INFORM THE USER WHEN 
FORMATTING ERRORS ARE MADE, 


INPUT DATA ERROR MESSAGE. 


WHENEVER ERRONEQUS DATA IS ENCOUNTERED OR THE TYPE DOES NOT 
MATCH THE FORMATs AN ATTEMPT IS MADE TO BRANCH TO THE ERR 
ACTION LABEL (C¢THIS 1S ONLY FOR FORMATS NOT CONTAINED IN AN 
ARRAY), IF THERE Ys NO ERR ACTION LABEL» THE OBVECT PROGRAM IS 
NS"=ED FOR ERRONEQUS DATA WITH ONE OF THE FOLLOWING mESSAGES. 


"DATA ERR #N% FMT IS FPs TYPETYs COL#CL» CHRaCRe REC#RNE 

<FOLLOWED BY THE USUAL PROGRAM» SEG» AND ADDR INFORMATION?” 
OR 

"DATA ERR #Nt VFPEFPs TYP®TYs» COL#CL» CHRECR, REC#RN3 

<FOLLCWED BY THE YSUAL PROGRAMs SEG» AND ADDR INFORMATICN>»"™ 


WHERE $ 


ny IS ONE OF THE DIGITS 1» 2» OR 3: =ILLEGAL CHARACTER IN DATA 


43 


my, 


FIELD’ 2=NONINTEGRAL DATUM READ UNDER AN I PHRASES AND 
3=NUMERIC OVERFLOW (>3777777777777777 FOR OCTAL, > 
5497558143887 FOR INTEGER AND LOGICAL» AND 24.313591466724%10%%68 
FOR ALL OTHERS)3 
FP IS THE FORMAT PHRASE EDITING THE ERRONEOUS DATUM, EeGes E10023 
ry IS THE LIST ELEMENT TYPE CRe Is Ls» Ds AND C FOR REAL» INTEGER? 
LOGICAL» DOUBLE PRECISION» AND COMPLEX RESPECTIVELY)# AND 
cL IS THE COLUMN OR CHARACTER NUMBER WITHIN RECORD NUMBER RN WHERE 
THE ERRONEOUS CHARACTER Cr IS FOUND CRECORD NUMBERING STARTS i 
AT 1). 


THE FIRST FORM Is ySEOD WHEN THE FORMAT PHRASE EDITING THE 
ERRONEOUS OATUM HAS NO VARIABLE OR DYNAMIC PARTS» AND THE 
SECOND FORM IS USED WHEN THERE ARE VARIABLE OR DYNAMIC PARTS. 


In THE SECOND FORMs VFP %&IS THE VARIABLE FORMAT PHRASE AS 
COMPILED (CEeGes etP, 2G6%269 OR V10)»5 AND FP IS THE FORMAT % % 
PHRASE AFTER THE VARIOUS DYNAMIC PARTS aRE EValLUATED CAT RUN®@ 

TIME)» FOR EXAMPLE, VFP=FP MIGHT READ 2F7.**?2F7e2e OR VIO=I10, r 
OR *Ve,*eTids ETC, 


TWO COMPLETE SAMPLE ERROR MESSAGES ARES 


"DATA ERR #42 FMT IS 2F10e6s TYPE@Rs COL#62s CHR=A» REC#626! 

<FOLL OWED BY THE USUAL PROGRAM» SEG» AND ADDR INFORMATIOQN>* 
AND 

"DATA ERR #2! *vi0=7110+ TYPFI» COL#125 CHR=,» REC#2173 

<FOLLOWED BY THE USUAL PROGRAMs SEG» AND ADOR INFORMATION>o” 
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VARIABLE FORMAT ERROR MESSAGEs f 


"VARBL FMT ERR? VFPsFPs <USUAL PROGRAM» SEG, AND ADDR 
INFORMATIQN>,* 


WHERE VFP IS THE FORMAT PHRASE WITH ITS VARIQUS DYNAMIC PARTS 
(THE PHRASE AS IT APPEARED AT COMPILE TIME)s FOR EXaMPLES 


manPy oG*.6s OR 7V10.4 


AND FP I§ THE SAME PHRASE AFTER AN ATTEMPT HAS BEEN MADE TO 

FVALUATE THE VARIQUS DYNAMIC PARTSe THE FAILURE OF THE ATTEMPT 
1S REVEALEN IN FP YTSELFe FOR EXAMPLE» VFP@FP REANS AS ANY OF ( 
THE FOLLOWING? 


wV¥567264 12> 
eVeszLet6>re 
«V*¥S2FL2,<MISSING D> 
*VE7I<MISSING W> 
4V=Z4E<MISSING W AND > 


A COMPLETE SAMPLE ERROR MESSAGE IS? 


"VARBL FMT FERRE ¥4*£16-=6616.<"8,2614>! <FOLLOWED BY THE USUAL 
PROGRAM» SEG» AND ADOR INFORMATION>« 
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ECU COMPUTING CENTER 
B5500 SySTEMS BULLETIN # 25» REVISION 1 


11 JUNE 76 


SUBYFCT! REVISION NOTICE = SUBSCRIPTING IN COBOL68 


SEVERAL PATCHES CONCERNING SUBSCRIPTING IN COBoL68 HAVE BEEN 
INSTALLED DURING THE PAST MONTHe ALL KNOWN PROBLEMS IN THIS AREA HAVE 
BEEN CORRECTED. THESE CORRECTIONS ARE EFFECTIVE IN COROL68 LEVEL 1600. 
15 AND ALL SUBSEQUENT LEVELS. 


Ce a ee | 
* THIS SHOULD BE A PERMANENT ATTACHMENT TO THE ORIGINAL BULLETIN * 


Pe ce | 
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ECU COMPUTING CENTER 
B85500 SYSTEMS BULLETIN # 25 


14 JANUARY 76 


SUBJECT: SUBSCRIPTING IN COBNL48 


Ce ae ek ee meme eae Oe 7 om wo ee ey 


— 


USING A FORMULA FoR A SURSCRIPT WILL CAUSE INCORRECT RESULTS TO BE 


PRODUCED. THE SUBSCRIPT FORMULA IS NOT EVALUATED CORRECTLY AND CAUSES 
THE MFSET FOR REFERENCING THE aRRAY TO BE INCORRECT. 


EXAMPLES3 


IF ARCNDS + 4) EQUAL SOMETHING MOVE 1 TO SOMFTHING@ELSE,. 
MOVE ARCNDX 7 6 + 2) TO LINE*@P, 


UNTIL A CORRECTION CAN BE INSTALLED» It Is RECOMMENDED THAT ALL 


SUBSCRIPT COMPUTATION BE DONE SEPARATELY. 


EXAMPLES! 


COMPUTE TMP & NDIX / 6 + 2e 
MOVE ARCTMP) TO LINE*P, 


AwAaA 
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ECU COMPUTING CENTER 
Qa5500 SYSTEMS BULLETIN #26 


96 APRIL 76 


SUBJECTS GUIDELINES FOR TAPE AND OISK FILE aTTRIBUTES 


ae Pn ean Re enete Fan Bae Be ee Fee POR se Fe ase a Fare e 


Ae 


FOR MAXIMUM EFFICYENCY anO TO AVOID THE OSS OF RECORDS THE 
FOLLOWING RULES SHOULD RE FOLLOWED WHEN DESIGNING TAPE AND DISK 
FILESs ANY DEVIATION FROM THESE RULES MAY CAUSE RECORDS TO BE LOST 
OR INACCESSIBLE, 


GENERAL 
1. RECORD S1rZE SKoULO ALWAYS BE A MULTIPLE OF 8 
(CHARACTERS). 
2. SUGGESTED BLOCK SIZE RANGE IS 2400 * 3600 (CHARACTERS). 
36 FILES SHOYLD BE wRITTEN AND READ WITH THE SAME RECORD 
SIZE AND RLOCKING FACTOR. 


ADDITIONAL RULES FOR DISK FILES 


7 oe 8 gy & Ow we ee me name mn naam nm mao Fo 


te BLOCK SIZE CIN CHARACTERS) SHOULD BE A MULTIPLE OF 240 
CCHARACTERS), 

Ze PAGE SIZE CIN RECORDS) SHOULD BE A MULTIPLE OF THE 
BLOCKING FACTOR CIN RECORDS), (CNOTES IN FORTRAN PAGE SIZE 
= AREA/20) 


Be RECORDING MODE SHOULD BE STANDARD (BINARY) FOR ALL DISK FILES AND 
FOR ALL TAPE FILES wHICH ARE USED LOCALLY. NON@STANDARD CALPHA) 
TAPES SHOULD BE WRITTEN ONLY WHEN THE TAPE IS TO gE SENT TO A NON@ 
A5500 SITE, 

Ce STANDARD LABELS ARE HIGHLY RECOMMENDED. IT IS ALSO RECOMMENDED THAT 
THE FILE NAME BE A. TWO#PART ID (MFID/FID) TO MAKE THE NAME MORE 
UNTQUE, 

De MULTI@FILE TAPES ARE NOT GENERALLY RECOMMENDED FOR DATA TAPES WHICH 
ARE FREQUENTLY UPDATEDs BUT THEY SOMETIMES PROVIDE a HANDY MEANS FOR 
COMPACT BACKUP STORAGE. 

AmARA 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 27 


08 APRIL 76 


SUBJECTS’ NOTES ON FILE FQUATION 


Le 


THERE IS FVIDENCE INDICATING THAT THE FILE EQUATYON CARD DOES NOT 
PROPERLY HANOLE THE RECORDING MODE OF A FILE ¢CcOBOL AND COB80L68 
PROGRAMS ONLY). USERS SHOULD EXERCISE CARE WHEN EQUATING TO A FILE 
THAT HAS A DIFFERENT RECORDING MODE THAN THAT ORTGINALLY COMPILED 
INTO THE PROGRAMe. aLlSOs:THE RECORD AND BLOCK SIZES OF THIS FILE (TO 
WHICH YOU HAVE EGUATED) SHOULD BE THE SAME AS THOSF COMPILED IN THE 
PROGRAM SINCE FILE FQUATION DOES NOT HANDLE THESE ATTRIBUTES. 
EXAMPLE? 
A PROGRAM USING A FILE DECLARED AS A CARD FILE CALPHA 
RECORDING MCDE) BUT EQUATED TO A STANDARH TAPE FILE 
CBINARY RECORDING MONDE) MAY CAUSE SEVERE ANN UNEXPECTED 
PROBLEMS, 


FT aad 


ao, 


2e PLEASE NOTE THAT WHEN aA FILE IS EQUATED To nISk VIA THE FILE 
FQUATION CARD THE OUTPUT MEDIA SPECIFICATION DISK" WILL CAUSE THE 
FILE TO BE A RANDOM aAccESS FILE WHEREAS THE OUTPUT MEDIA 
SPECIFICATION ‘“SERTAL™ WILL CAUSE THE FILE TO BE A SEQUENTIAL FILE. 


3e FOR FILE EQUATION CARDS THE QUTPUT MEDIA "PRINTER" IS NOT A VALID 
UNITe FOR EQUATION TO THE PRINTER THE MEDIA SHOULD BE "PRINT", 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 28 


08 APRIL 76 


SUBJECT: SEGMENTATION In FORTRAN 


aan RQaneens Se Pera s ewe wwe rua etea 


CURRENTLY» THE DEFAULT SEGMENT SIZE LIMIT OF a FORTRAN PROGRAM 
SEGMENT 1S 512 WORDS, THyS S;7ZE 1S PROVEN TO BE THE MOST EFFICIENT FOR 
MOST PROGRAMS BUT MAY BE VARIEn BY USE OF THE 


$ SET SEGMAX (LIMIT) 
CARD WHERE CLIMIT) IS THE SEGMENT LIMIT IN WORDSe 


EXAMPLES $ SET SEGMAX 256 


REGARDLESS OF THE SEGMENT SIZE LIMITs THE COMPILER ONES NOT ALWAYS 
BREAK A SEGMENT IN THE LOGICAL PLACEe FOR EXAMPLEs A SEGMENT BREAK MAY 
OCCUR WITHIN A DO LOOPs THUS MEANING A CONSIDERABLE AMOUNT OF OVERLAYING 
Is MONE OURING FYXECUTION OF THE 00 LOOPe SINCE THe DO LOOP SPANS 2 
SEGMENTS WHICH PROBABLY wILL NOT RE IN CORE AT THE SaME TIME» IO TIME 
FOR THE JOR WILL BE y;NCREASFO. CNE CR TwO CASES OF THIS IN A PROGRAM 
MAY NOT CAUSE A’ LARGE PROBLEM» BUT IN SIZABLE PROGRAMS WHERE SEVERAL 
ILLOGICAL SPLITS USUALLY OCCUR A CONSIDERABLE PRORLEM MAY DEVELOP, 
FUTHERMOREs IN SOME PROGRAMS WITH LARGE WRITE STATEMENTS » A BREAK MAY 
gcCuR IN TRE MIDDLE OF THE WRITE LISTe THIS MAY CAUSE THE WRITE 
STATEMENT TO LOOP INFINITELY WHILE PRINTING GARBAGE DATAs 


- 


THE ONLY SIMPLE SOLUTION FOR THE ABOVE TWO PROBLEMS IS THE INSERTION 
OF A 


$ SET SEGMENT 


CARD IN APPROPRIATE PLACES TO CAUSE FORCED SEGMENT gREAKS IN THE LOGICAL 
PLACES. REARRANGING THE QRDER OF THE CODE MAY ALSO BE HELPFULe HAVING 
GROUPS OF INFREQUENTLY USED CODE GROUPED IN SEGMENTS BY THEMSELVES ALONG 
WITH FREQUENTLY USED SECTIONS IN OTHER SEGMENTS wILL ALSO IMPROVE 
EFFICIENCYe THE OVERALL OBYECTIVE IS TO HAVE CODE SEGMENTS GENERATED IN 
A MANNER THAT WILL CAUSE THE LEAST AMOUNT OF QVERLAYING, 
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ECU cOMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 29 


13 MAY 76 


SUBJECT! REVISION NOTICE = COPY VERB IN COBOL68 


ena n wee Raenanea es ene one = wee we asa ee an Penna aw es 


ALL KNOWN PROBLEMS wITH THE "REPLACING" OPTION OF THE "COPY" VERB IN 
CoBoL68 HAVE BEEN CORRECTED. THE CORRECTION IS EFFECTIVE IN COBOL68 
LEVEL 1609.14 AND ALL SUBSEQUENT LEVELS. 

AwmAaA 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 30% REVISION 1 
13 SEPTEMBER 76 


SUBJECT: REVISION NOTICE == COROL68 SORT 


er 


ALL KNOWN PROBLEMS WITH USING/GIVING AND INPUT=PROCEDURE/GIVING 
SORTS HAVE BEEN CORRECTED. THE CORRECTION IS EFFECTIVE WITH THE COBOL68 
COMPILER LEVEL 1640.16. 


rr ee ee ee 
* THIS SHOULD BE A PERMANENT ATTACHMENT TO THE ORIGINAL BULLETIN * 
a | 
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ECU COMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 30 


O2 JULY 76 


SUBJECT ERROR NOTIFICATION = COBOL68 SORT 


SOMETIME BACK A PROBLEM ExIsTED IN COBOL68 WHEREIN A SYSTEM HANG 
WOULD RESULT IF BOTH THe USING AND GIVING PORTIONS OF THE SORT 
REFERENCED THE SAME FILE (CEGs SAME FO)e THAT PARTICULAR PROBLEM WAS 
CORRECTED ABOUT A YEAR AGO. 


ty HAS COME TO OUR ATTENTION THAT A SIMILAR PROBLEM HAS DEVELOPED, 
HOWEVER. THE CURRENT PROBLEM IS THAT A PROGRAM HAVING ITS INPUT 
PROCEDURE REFERENCE THE SAME FILE AS A GIVING CLAUSE oF THAT SORT WILL 
SUFFER AN ABNORMAL TERMINATION. IT IS SUSPECTED THaT THIS MIGHT aLSO BE 
THE CASE FOR A USING/OUTPUT PRNCEDURE COMBINATION, 


A CORRECTION IS BEING PURSUEDS HOWEVER, IT IS RECOMMENDED THAT AS A 
TEMPORARY MEASURE EACH sORT REFERENCE TWO SEPARATE FILES (NOTE THAT EACH 
FILE maY HAVE THE SAME VALUE OF ID). THIS SUGGESTION SHOULD ALLEVIATE 
ANY UNEXPECTED PROBLEMS UNTIL A CORRECTION IS PROCURED. 

AwAmA 
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ECU cOMPUTING CENTER 


B5500 SYSTEMS BULLETIN # 31 


13 JULY 76 


SUBJECT? COBOL68 RESERVED WORDS 


SB eR@agn nem 8H SO Fe Fae sea eg ZF 2 we w ws 


THE FOLLOWING LISy OF RESERVED WORDS ARE OMITTED FROM THE CURRENT 
COBOL68 REFERENCE MANYAL (€#1081148 OF JANUARY» 1975), THESE WORDS 
SHOULD BE ADDED TO THE EXISTING LIST OF RESERVED WORDS YN THE MANUALs 


AS 


CANCEL 
CLEAR 


LOCAL 


MODS 
MYUSE 


NAME 
NOTE 
NOTES 


PROTECT 


RANK 
REMARKS 


SECONDS 
SET 


TASK*1D 
TASK*NAME 


WHEN 

WITH 

WORDS 
WORKING*STORAGE 
WRITE 


ZERC 
ZERGES 
AwAmA 
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ZEROS 


athe, 


zs 
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EcU cOMPUTING CENTER 
B5500 SYSTEMS BULLETIN # 32 


16 JULY 76 


SUBJECT: ERROR NOTIFICATION = yALGOL WRITE STATEMENT 


IT HAS BEEN OYISCQOVERED THAT IN RELATION TO A REMOTE FILE» THE 
CONSTRUCT 


WRITECUNITCSTOP)>» soe 23 


DOES NOT FUNCTION CORRECTLY WHEN THE PROGRAM CONTAINING IT IS RUN UNDER 
THE BATCH MCP. THE CONSTRUCT FUNCTIONS PROPERLY UNDER TIME SHARING. 


THE PROBLEM IS THAT GARBAGE LEFT IN THE BUFFER BY THE PREVIQUS WRITE 
TO THE REMOTE FILE 8S PRINTED REGAROLESS OF THE CSTOP) OPTIONe FOR 
EXAMPLE» THE STATEMENT 


WRITECREMCSTOP]e1sA(*1)3 


WOULn PRINT THE CONTENTS Of WORD 1 OF ARRAY A FOLLOWED BY WHATEVER 
GARBAGE IS CONTAINED IN THE QEMAINDER OF THE 28=CHARACTER BUFFER. THE 
DESIRED EFFECT WAS Toh HAVE Aci) WRITTEN AND STOp THE CARRIAGE 

IMMEDIATELY AFTER IT*"S LAST CHARACTER» AND THIS IS PRECTSELY THE RESULT 

WHEN THE PROGRAM IS RUN UNDER TIME SHARINGs 


NO TEMPORARY SOLUTION HaS BEEN FOUND WHICH WILL PRODUCE THE EXACT 
DESIRED RESULTS. A CORRECTION IS BEING PURSUED AND WIL, BE INSTALLED AS 
SOON AS POSSIBLE. 
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ECU COMPUTING CENTER 
AS55090 SYSTEMS BULLETIN # 33 


SEPTEMBER 22% 1976 


SUBJECT: ERROR NOTIFICATION BASIC FILE HANDLING ERRORS 


USE OF THE ENO#OF*FILE BRANCH IN BASIC CAN CAUSE SYSTEM HANGS AT 
EXECUTION TIME. BASIC USERS SHOULD BE AWARE THAT PROGRAMS CONTAINING 
THIS OPTION MAY CAUSE PROBLEMS, 


THE FOLLOWING WILL CERTAINLY CAUSE AN ERROR IF DATAM CONTAINS LESS 
THAN 10 NUMBERS3 


100 DIM x€10) 

200 MAT INPUT FILE DATAM?300°xX 
300 MAT PRINT X 

400 STOP 

500 END 


LABEL QOO0O00COO0OPRNT OO1772792USER=SPO 3 EXECUTE cOPY /SPO 


